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9l:7\-h^ffi<CcL^~rS^^o 184-255 
^v^05>\zrd^, 33~183C^§ti#^ 

$imi (P134~135) ®=^17^95^^-K 



O 7)^^ 




/ \-h®7°n7^^^IS,PER 

FECT (Z)^#^^'lns^rif3 



PERF 




r> K'^?*- 



rvK-N?-*- 
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; 230 Tf (PEEK (aH401 6) AND aH4) 

I 



230 I F (PEEK (aH401 6) AND aH4) 
=Q THEN225_ 
[330 I F (PEEK (aH401 6) AND aH4) 
=Q THEN330 



330 I F (PEEK 
,=Q fHEN325 



r-y K-^5'*- 



(aH4016) AND aH4) 
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(aH4016) AND aH4) 



440 I F (PEEK (aH401 6) AND SlH4) 
= Q fHEN440__ 
440= Tf (PEEK 
=Q tHEN435_ 

• 1 45 DE'f move (7) =SPR I TE (1 1 , 3, 
25, 255, 0, 0) : POS I T i ON 7, 1 6, 20 
IMOVE 7 

• 225 Tf XPbs(7)>216 AND Q<>99 
9 THEN P=L : NEXT : RETURN 600 

• 325 Tf XPbs(7)>216 AND Q<>99 
9 THEN RETURN 600 

•435 Tf XPb8(7)>216 AND Q<>99 

9 THEN RETURN 600 
•485 CUT 7 

• 600 ' ^yjy^iy 

• 610 CGSET1, 1 : CUT 7 : PLAY "02T1 
B3AGFEDC" 

• 620 LOCATE 1 0, 7 : PRINT " z^TJ 
y^Vy " 

•630 PAUSE 300: ERA 7 
•640 GOTO 190 
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3. \l?>(Ji':f-LSJUO^Ls 



/)■" i''i/l T ;C if T 



g^^o (SL;(fe~5'~57(3;^(Z)Bci\T, ^j>L^'osi::ijuTM, 

ifL<ESDL^^3fflDEF MOVE 



DP pi 



^"?(Z)^|. 




145 DEE MOVE (7) =SPR I TE (1 1, 3, 
£5, 255, 0, 0) : ^T^ 

<L^^^ScL, 5'^y-®So|^'^<«^rL^i^^^;tf5ii 
C. v>r:^^?|oT^^ L J: ^ 

^;^*^c!ie)^1S, BASIC r^S^ 

(L^^r^^^o^ncis, PEEK( ) 
L^^o ris, ^©d;^® 1130)7° 

n7~^zL^A)DLT, RUNLT< 







3. \J?>(Df-LDU'J^L. 



1 PRINT PEEK (aH401 6) ANDaH4 : G 



I 



I 

I 

lili 







OTO 1 

tliT^^^o ^::r, volume 



c:n^7n7~^^T:i^^iz(s, bu^^c peek (aH40i6) 

ANDaH4 ^^iS^Ci-tALTa^, ^ Y^^^SfflSA^r PEEK 
(aH4016) M^DSHA(Dmt.n[^U^Z)l3\ ¥U^U^^o C© 

UTl^^^o RUN ^St;>^^vtz-2;^'^t±JT, :X5^-Sffii^"^U^ 
^ (¥M4)o 

T (fe;£UtSIS, RUN ux< 

38 Js5$¥ci±iT < 2. ^Sj li, '"&J ^iL;5:iT'-r„ ii|®CttiT< 







110 CLEAR :CLS:C=8:F=8:CP=184 

+RND(72) 

120 PV=PEEK(&H4016)AND&H4 

130 PALETB 0,14,48,48,17+RND 

(12) 

140 PRINT ■>tKfl" 5.^7 70Z -('+ 

? 7+»<r7 3"7><" 

150 PAUSE 200 : PLAY "VISOST 

1C1DEFGAB04C" 

160 IF (PEEK<&H4016)AND&H4)= 

PV GOTO 160 

170 FOR SS=0 TO 19 

180 S=PEEK(&H4016)AND&H4 

190 IF SOPV THEN SS=19:F=1 

200 NEXT 

210 IF FOl GOTO 240 

220 C=C+1:PRINT CHR*(CP); 

230 IF SOPV THEN F=0!GOTO 1 

70 

240 PRINT:PRINT 

250 PRINT ■ +S J MliV 

>J30 ■ 

260 PRINT ■ mm'iC;' 



!PUCAnTfc< 






1 70ItcM5 



270 END 



i:hi-'E-\--X\ \ G R PH \+\^^i^tt: 
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A-s 7P^^Au:;^s 



10 PLAY"M1V9Y2T3:M1V7Y1T3:M1 
T3" 

20 PLAY"03E5G:03C5C:02G5G" 
30 PLAY"04CG3B4A1:CC:#F#F' 
40 PLAY"G4A1:F4F1:03D402B1" 
50 PLAY"B404C7:F4E7:G4C7" 
60 CLS:LOCATE 8, 10 :Q=PEEK(&H 
4016) AND &H4: INPUT "PLAY ? Y 
/N=>',Y$!lF Y$='N" THEN Q=99 
9 

70 CLS:ERA0, 1,2,3,4,5,6,7 
80 SPRITE ON:CGSET0,0:U=&H15 

90 PALETB 0, 15, 48, 48, U 

100 A$='AIIIIIIIIIIIIGIGGGGH 

110 B$="HHBHBBBEBEEE" 

120 K$="ABCDEFGHI' 

130 I$="ABCGHIDEF" 

140 CLS:LOCATE9,10:PRINT'STA 

RT ! ! ■ :PAUSE80:CLS 

150 X=13:Y=22:I=0 

160 GOSUB220:SUAPA$,B*!GOSUB 

220 

170 IF I=0THENSUAPK*,I$:I=1: 

GOTG160 

180 GOSUB310:GOSUB430 

190 IF QO999THEN60 

200 GOTO70 

210 END 

220 L=LEN(A*):F0RP=1T0L 

230 IF(PEEK(&H4016) AND &H4) 

=Q THEN230 

240 K=P 

250 IF I=0THEN270 

260 K=L+1-P 

270 C=INSTR(K$,MID*(A*,K,1)) 

-1 

280 V=C/3:H=C M0D3 

290 X=X+H+3*(H=2):Y=Y+V+3*(V 

=2) 

300 LOCATEX,Y:PRINT"»";:NEXT 

: RETURN 

310 Y=22:S=0:E=13:T=0 1 






-,m^-ALXm.i-i]^ t:' T i}'^ 









► /N- h(r>.i~h^m< 



hf-^ i, u 



ctHT < -SiS:^ 



3. V3ffl^-^7n^3'^ 



1, 

320 LOG ATE 18, 20! PR I NT "SCORE: 




330 IF(PEEK(&H4016) AND &H4) 




=Q THEN330 




340 T=T+l!LOCATE24.20:PRINTT 




350 X=X+l!lFSCR$(X,Y)=" "AND 


" 


X<=E THEN LGCATE X,Y:PRINT" 


, •/\- h^^ijrjvitr 


•" :GGTG330 




360 Y=Y-1:IFY<1THEN390 




370 GOSUB410 : IFX=-1THEN360 




380 GGTO350 




390 IFS=0THENS=13:E=26!Y=2e: 




GOSUB410:GOTO330 




400 RETURN 




410 X=-1:F0RC=S TGE:IFSCR$(C 


■ 


,Y)=:"»"AND SCR$(C+1,Y)=" "TH 




EN X=C:C=E 




420 NEXT: RETURN 




430 U=&H34!FORN=0TOl!DEFMOVE 




( N ) =SPR I TE ( N , 3+4*N ,1,1,0,0): 




POS I T I ONN , 236*N , 200 : NEXT 


-^^ 


440 IF(PEEK(&H4016) AND &H4) 


•^u^iiuT^-f ^mt^t 


=Q THEN440 




450 T=T+1:LOCATE24.20:PRINTT 




460 MGVE0,1:IFCRASH(0)=1THEN 




480 




470 GGTG440 




480 LOCATE10,10:PRINT"PERFEC 




T" :FORN=0TO100:PALETB 0,6,&H 




30 , &H30 , U : SUAPU , U : NEXT 




490 PLAY"M1V2Y1T2:M1V10Y1T2: 




T2" 




500 PLAY"03E3G#DGDGttD6:01#B5 




B#AB:R" 




510 PLAY"EG04CG3E:Y202#B6E3: 


T * 


01C5C" 


• V U ;!- i: U 7- -f ?b« tti •& -p /: i: # 


520 PLAY"«GA04DC:F5#F!#C#C" 


tiA*'< 1^' 


530 PLAY"03B#ABG4A:F3G3DFA:D 


^^^'Mt 


6F3" 




540 PLAY"GG3A04F03B:E5DV15:G 




A#AB" 




550 PLAY"#B3GT3FGE1DV12E7:C9 




:#B5T3GC7" 




560 PALETB . 15,48,48,21 : RET 




URN 
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J\-^^WJX\- 



Q 


^-^^g-^^^usu^^ 


X, Y 




U 


/\-hffle 


W 


/ \-hxfifiXLiia'oioTu\sts©/ \-h®e 


1, L, P, K, 
C, V. H 


1 \-\~-^^<i']^mm 


A$, B$, K$. 
1 $ 


/\-SfflJl>&^50c^A?7-'-57 (;i) #pM 


N 


is^^5liT<S>'Z^:5F-V?^^5'fflM6vEiS 


T 


LA f 



a) ^?x— 915, 


>5?fflcJ;e'CX, Y©g 








(0) 
0, +1, -1 
A, B, C 


( + 1) 
^, +1, -1 

D, E, F 


(-1) 
0, +1, -1 
G, H, 1 
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3. V3Cr)0"-^7n-7^Aj 



2. AC^'S^aeK 



A. ilc/:^ 

fiiSHB m iRETURNi 

(zi eii^sc:~c!:c, 10,1^'^© 

43 





ill 



B. afei^(7):^>i 

SLxTI^S ^^j(^l7^957:D-KiB(Z)94)r-^o 

fefp^r<e~$Uo ym(D%mmAi\,ti, ^^-{yi^i^wkwk 

44 




3. ysoif-uyuo^L^ 
yO=E~\^V ^FILEj ^M/3\^\ BASIOCDLOADSm^r${$; 

105 PALETB 0, 10, 48. 1^. 37 

/x>/x>^, \^tja)j^-:^^v^05>\z^x^i^<t^\^, 390I3 
t580l3^iiL.r<;e~^Uo 

390 d'eF MOV E (7) = SPRITE (4,0, -ttfi 
580 DE'F MOV E (7) = sprite (4,8, -afi 
4^0-1 5(Z)iilZ^Sc±, /K>/X>J^fe;^Z^:ip 17^95713©; 



K)^^o ^(j)'p-^^v^o'9\zu^mm-^, $«0Dmip.i28 
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3. \J?>(Ji'f-LSJUO^U 



I 




IS, fe30®l3CD14^ 



430 DEF MOVE (F) = SPRiTE (14, 1, 
820 DE> MOVE (F) = SPRiTE (14, 1 
1 070 D E'F MOV E (F) = S P R I T E (14, 



630 T = T + 10: LOCATE &^Tm 

M^(SJi©c^oc, 630l3(Z)i0r):^i^ri^^^o ^©10^20^ 



tn 1; lA^ 



100C^St, ^^^M^^diSffiM^st^'^^O^O^^o ^^'OX'c 

360i303^IS^^a)i^CU^^o 

360 PX = 1 3*8 + 1 2 : PY = 2*8+1 6 : = 3 

:T=0: FW=0: F=0 
46 






370 KN-2:W=219 













ilS1 ^^2^^3CUT35UT<^~c^Uo 

© •:7:^^^^<a<^<l:;tf•CS«:l^<i:$tt 



omom ee^i RETURN] 

r555l3^Mlzmu^^o 

(4)(9]0 tfJSfib, IR ETURNI ^-^ffL^^o 
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I 

I 



[5][5][5][BilURN] 

-KA '5< '^k <^ \ln\ln y 



® ^y^ynMx^%(Dm^m0^'p'yos\z[yzs^^b^'D 






;i. 



^©1-9^, mmiz^x^ci^z)[zuz)Zi\^^o 

290 P S $ = 'X23456 7 89 " : P L = kJ^Vf^ 



oi#ii 



"123456 




7 8 9" ^^tXUTU^^o 

CO) " " rB$^n75$# 

CDc^(Z»l\;&JliSIZ, »i\^ 

"98765" 

"ABCDEFGH I JKLMN" 
"MAR I O" 
"y-j^^^J~^-y^vO\l3" (¥M8) 

48 



*i'/; '.l; 



3. V3CD'7'-Aj7n<75^ 

iL.T<H^i\o ^^, ite^^Tiir,"i 2132" ®c^^ 

IZ, iL;^#^"2imi:^^Tfe^^^l\^t^/u^\ "1 12 32" 



t,i>i '<s '.-i; '>^ 



*■ !0,V /j 



iu<2lT^Bfe^t, mz^^^v^o'^^, iioizt^uT 

335 LOCATE 10, 22 : PR I NT "^V^7\ = 
> " ; LEFTS (PS$, 1) ; 
645 LOCATE 17, 22 : PR I NT mTdS (P 
S$, PS, 1) ; (iMs) 

^~t)5^Sc5;^CLT 
^^', 2 90130) " 

"ABXC1 2X3XZ" 
;e~cLLr, ^©q^^-^B ^Xj ^, it-^7<^V^O'9\Z\^^^tL^ 

49 




^b^^ 




290 PS$= ''ABXjC12X3XZ'' :PL = LEN ( 
PS$) : PS = 1 : B$= "X" 

605 Tf S$=B$ then T=T+100 

X] z: ^ Au;y*»Ti3 < c^ ^ c u r 
tiur, 290l3(::i©d^^M 

290 PS$ = "jl2B34B43B22": PL = LEN(PS$) 
: PS = 1 : B$= "B" 
>i^(ziu<606l3ch785l3^BiL^^o 




3. V3ffl^-Zi7n<75Z4 

606 Tf s$ = b$ then d'ef MOVECG) 
= spr i te (1 1 , 0, 1 , 255, 0, 0) : pos i 

T I ON 6, 1 1 6, 10:MbvE 6 

785 Tf move (6) <>0 THEN JX=-J 

X : JY = -JY 



BtilS, 606l3ffl DEF MbVEr):l^^^^o 

606 Tf S$ = B$ then DE'F MbvE(6) 
= SPR I TE (1 1, 0, 1, 255, 0, 0) £tfffl§ 

^(Z) 255 ^, fe^tfesS^cfeT^^Lc^^o rfe, ^^ 



S^'^^^^Sfflr, #gl3;57Yy- 




50 



51 



I 






465 DEFM0VE(5) = SPR I TE (1 3, 3, 4 
5, 128, 0, 0) [POSITION 5, 116, 21 
L0 : MOVE 5 

"466 D'EFMbvE(4) = SPR I TE(6, 3, 25 
, 1 28, 0, 0) : POS I T I ON 4, 16, 210: 
MOVE 4 
475 Tf crash C5) =4 GOTO 1120 





c-c- 



::®3l3^iiuTRUN^5c±, ^-^^^i^^^ch^c, ii 
$/i;i<zBiMir<t,KiAncho\^ctc^^'o,^-^^^fe^^^o 

<^'0^1^/voi^^l7^95^fflailZcf:^T, 46513 c^466l3® 

/465 DEFM0VE(5) = SPR I TE(1 3,3,45, 
ll 28, 0, 0) ; luTO 

466 DE>MbvE(4) = SPRI TE(6, 3, 25, 
52 



3. V3®0'-Za7n<7^ZA 



V. *■ ')f< 

•UiTB& 



1 28, 0, 0) : - 



(■ -f, I; 



X 1.8 = X]^$Auffli^ 



25 X 1.8 = 45 



iHti^^hj 




880 Tf (KD = 3 AND JX = 1)0R(KD = 7 
AND JX = -1) OR (KD = 5 AND JY=1) 
0R(KD=1 AND JY=-1) THEN 1060 
ife^®B, 880 l3®i# 1 ^M;e~ITr^o M060J ^, 

''940J cuT<;e~$i\o <znr, ^M9®ci;^cMA^Anru\ 

53 




Il 

1 



CIS, ii7^iiLT^^6, i 



li^ 




<tg^s> 



7+- 



f_f>kN:l1 
to KN-1 



THEN F=0 



>^-2- 



>/]-1 



/700 

;700 FOR F 

1 105 NEXT 

/K>/K>-^Z1 -^-2^^>/K>-^-1 -X7Z2 

54 




3. ysa^'T-uyuo^u 

580l3^2^(Z)c^^lzfeT<^~$Uo 

580 DEF MOVE (7) =SPR I TE (4, S, 

2, 4, 0, 0) : wfp^ 

^2j ^ ^3j cfas^i, ^J>U^^to5^NZS:i0^^o 
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3. V3ffl^-^7n^5/A 



^y^ym^ync^^huxi- 



I 



ill 



• i*s4^ffl< 



189 CLEAR :CGEN 2:CGSET l,l:Sj 
CREEN 9,1 I 

118 SPRITE ON:PLAY 'VlSTlrVll 
5T1 ■ ' 

128 IF SCR$(1,2)<>" ■ GOTO 2i 
48 / 

138 'BX-ro 

149 FOR JX=1 TO 21 STEP 4:F0 
R JY=2 TO 28 STEP 3 

158 LOCATE JX.JY: PRINT '■♦ 

+":IF JY>19 GOTO 188 
168 LOCATE JX, JY+1 rPRINT "i 
I ■ 

178 LOCATE JX, JY+2:PRINT M 

m 

I 
188 NEXT: NEXT 

198 FOR S=5 TO 17 STEP 3:L0C 
ATE 1,S:PRINT H'tLOCATE 25, 
S:PRINT "^'tNEXT 
288 LOCATE 1,2:PRINT ' r' • 

218 FOR S=8 TO 4:PRINT " r 

•5:NEXT:PRINT " >■; 

228 LOCATE 1,29:PRINT ■^■; 

238 FOR S=8 TO 4:PRINT " ^ 

■;:NEXT:PRINT " '" 

248 'IhAfy 

258 SCREEN 9 ,8 : VIEU:PRINT '» 

-ry"57A? A=yy77 b=7A" 

268 K=STRIG(8):IF K=8 GOTO 2 

68 

278 IF K=4 THEN BGTOOL 

288 PLAY ■03C1DE!03E1FG" 

298 PS$= • 123456789 " : PL=LEN( P 

S*)!PS=1 

388 FOR S=l TO PL 

318 SX=2+RND(24):SY=2+RND(1 

8):S*=SCR$(SX,SY) 

328 IF S$=' • OR INSTR(PS$, 

S*)>e GOTO 318 

338 LOCATE SX,SY:PRINT MID$( 

PS*,S,1) 

348 NEXT 

358 '■\>70 

368 PX=13»8+12:PY=2»8+16:C=3 












Mt-5 fcco^fc< 



iz^xa^-k^ 



:T=8:FU=9:F=8 

378 KN=2:U=219:KX=8:KY=8:KD= 

8 

388 LOCATE 8,e:PRINT " If J 

fX"\C\' h7f>';T 

398 DEF M0VE(7)=SPRITE (4,8, 

2,4,8,9)jP0SITI0N 7,PX,PY!M0 

VE 7 

488 DIM E(KN-l) 

419 'BDlf" A 

428 FOR F=8 TO KN-1 

438 DEF M0VE(F)=SPRITE(14,1, 

2,4,8,3) 

448 SX=1+RND(26):SY=18+RND(1 

8): IF SCR$(SX,SY)=' ' OR SCR 

$(SX,SY-1)=" ■ GOTO 448 

458 POSITION F,SX*8+12,SY«8+ 

24: MOVE F 

468 NEXT 

500 'm-'C^/')^"? 

519 S=8:SX=9:SY=8:K=STICK(e) 

:IF K=e GOTO 599 

528 IF K=l THEN S=3:SX=1 

538 IF K=2 THEN S=7:SX=-1 

548 IF K=4 THEN S=5:SY=1 

550 IF K=8 THEN S=1:SY=-1 

555 PX=(XP0S(7)-12)/8:PY=(YP 

0S(7)-16)/8 

560 S$=SCR$(PX+SX,PY+SY) 

570 IF S=9 OR S$=" ■ GOTO 59 



588 DEF M0VE(7)=SPRITE (4,S, 

2,4,8,8):P0SITI0N 7,PX*8+12, 

PY*8+16:M0VE 7 

598 '»92."tD9 

688 IF S$<>MID*(PS$,PS,1) GO 

TO 658 

618 PLAY ■04C8#CD#DEF«FG«G' 

628 LOCATE PX+SX,PY+SY: PRINT 

CHR$(199); 
638 T=T+19: LOCATE 21, 8: PRINT 

T 
648 PS=PS+1:IF PS>PL THEN PL 
AY " 04C3DEFG : 04E3FGAB ' : GOTO 
1128 
658 'mt^o 



>m^ 



^■^mLx^>-<>^^t 



* -?A^tBr 



^>^>-^'t<r>-^\^^zW\ti-'T 






T.ziT'i; 
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669 IF STRIG(0)<>8 OR INSTR( 

PS$,S*)<>0 OR C<1 OR FU=1 GO 

TO 698 

679 PLAY ■02E2C":U$=S*:L0CAT 

E PX+SX,PY+SY:PRINT CHR$(U) 

689 FU=1:C=C-1: LOCATE 8, 9: PR 

INT C 

699 'B^Haz 

799 F=F+1:IF F>KN-1 THEN F=9 

719 'K-fUfA? 

729 KD=VCT(F):IF KD>9 GOTO 7 

69 

739 IF M0VE(F)<>9 THEN PLAY 

■09C8EGCEG'!G0T0 1889 

749 ' mt' i^tl'J 

759 KD=E(F) 

769 'W"t39 

779 KX=(XP0S(F)-12)/8sJX=S6N 

( px— KX ) 

789 KY=(YP0S<F)-16)/8:JY=SGN 

<PY-KY) 

799 SK*=SCR$ ( KX , KY ) : SR$=SCR* 

(KX+1,KY):SL$=SCR$(KX-1,KY): 

SD*=SCR$( KX , KY+1) : SU«=SCR*( K 

X,KY-1) 

899 'mt? 

819 IF SK$<>CHR*(U) GOTO 859 

829 DEF MOVE(F)=SPRITE (14,9 

,1,299,1,2):P0SITI0N F,KX*8+ 

12,KY«8+16:M0VE F 

839 E(F)=KD: LOCATE KX.KYtPRI 

NT U*:FU=9 

849 GOTO 1989 

859 '^miS'(t>T», 

869 IF(SR*+SL$<>" " AND SD$ 

+SU$<>' ■) GOTO 919 

879 '■^a^S-^ 

880 IF(KD=3 AND JX=1)0R(KD=7 
AND JX=-1)0R(KD=5 AND JY=1) I 

0R(KD=1 AND JY=-1) GOTO 1969 [ 

899 '■\:/f> 

999 KD=(KD+4)+8»(KD>3):G0T0 I 

1968 ; 

918 '■I7">* J 

929 'mCFt, 



• * - ? ^ ^^^^ :»- T •> t' U T i^n 
fzhn-rt^h<^[i^t 



•> f u $ -a- -5 



• ti-$ Kfy^\.'i>tZh *^'^ilS,l 



t)^t:i-h^^m-^ti 



• t(nt Sitt- 



• K%i ? it ?. 
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3. vscb'T-isyao'z'U 



938 IF JX*JY<>9 AND RND(2)=1 

GOTO 969 
948 IF JX=1 AND SR*<>" ' THE 
N KD=3!G0T0 1969 
959 IF JX=-1 AND SL$<>' ' TH 
EN KD=7:G0T0 1969 
969 IF JY=1 AND SD*<>' " THE 
N KD=5:G0T0 1968 
979 IF JY=-1 AND SU$<>" " TH 
EN KD=1:G0T0 1968 
988 'm<>Jt'( 
999 S=RND(4)+1 

1888 ON S GOTO 1818,1929,193 
9,1949 

1818 IF SR*<>' ■ THEN KD=3 G 
OTO 1969 

1820 IF SL$<>' " THEN KD=7 G 
OTO 1969 

1939 IF SD$<>' ■ THEN KD=5 G 

OTO 1969 

1949 IF SU$<>' ■ THEN KD=1 G 

OTO 1969 

1959 GOTO 1919 

1969 'mi'O 

1979 DEF MOVE(F)=SPRITE (14, 

KD,1,4,9,3):P0SITI0N F,KX»8+ 

12,KY*8+16:M0VE F 

1888 'W*JD-y9? 

1898 IF CRASH(7)>=8 THEN PLA 

Y ■01B2AGFEDC" tGOTO 1129 

1198 'WB 

1118 GOTO 478 

1128 'WmiT) 

1138 FOR JX=6 TO 8:READ S$:L 

DC ATE 9, JX: PR I NT S$:NEXT 

1148 SPRITE OFF 

1159 DATA •wm^^m^' 

1169 DATA ' ■ t5-7< ■ ' 
1179 DATA '■Ji^l^^B' 
1189 S=STRIG(9)!lF S=8 GOTO 
1189 
1199 






-lcia-(t<:^(S] 



IF S=l THEN RUN 



1289 END 






• i^^i^^m'^LX^ksbtzTjl^lz 
fz b^ — At)-— /\ — UT?) 



• y — A ;!- — /"i — (7)^7F ^ T -J) 

• START 7^9 >t)^V$ntzh, 
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PS$ 



PL 



PS 



T 



FW 



W 



KN 



KX, KY 



KD 



EC ) 



^:y^>mssmmup.h- 



SR$, SL$, SU$, 
SD$, SK$ 
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i-5fe©®S 



uog^rjg^;^^^ 



^±©1 



^DT^ 



^±^Sl^^*^t'3>^^©^^^ 



^^ffl BG ^i7^^5?D-K 



<^^e^(D:/j~^iv^m^^^ty^^^?iy^o 



t}-^kjm 



TJ-^hm 



ft iiT ;t 



t]-^h(jy\m^mn'j=jO 



73-^h(Dmx^^(Dmm^'mi^i^i^(Dm 





.1 



A. i^c/':^ 

ilSHB [2lf7im i"RETURNI 

yr,"! A^ vi-i Li -fj (i n C T H)A> nT. 

cr=j;d^^'o^^^\ zm^yvyy'^v^o ^u^t^zcDhzfi 

A7\\5>y^m-DZz)^<yvyy^^^, ~^~^^muk^z 
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3. vaffl'j-^^n^^^ 







[STOP] Jp-^j? L T7n9"^^^it(feT< ;e~^ Uc 



i; J;^ + 



[B)[G]mOOO I RETURN ] 

(?i) BGTOOL r BG 9'^^:7Y^v^^MLr^^e), ^-^^i 
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mzA^^BG'7'yy^'yOtfV^I^^, BG^^^Y^v9t-K 
^f'i LEj ^\ BAS I OCDSAVEsS?=£i-^r, ^-y 

^:?Y^v9t-K6D ^F I LEj ty, BAS I CCDLGADS^^ 

MeMB f2l l"RiTURNi 



40 PALETB 3, 13. 48, 54, 2^:-)iifB§ 



41 PALETB 2, 13, 48, 54, 2b^ 

uyzs 

42 PALETB 1,13. 48, 54, 48^ 
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3. V3ff)^-^7D^5^ 



I 



II 



4 3 PALETB 0, 4. 48, 54, 39 



i'* i; iti 



^(s. eD-KS (P. 32) ctiteorSML-c<^'$Uo ^?^c^/\ 



Eia)^-^}fus:A'5B::sp-^j?i^tf, ^(Z)e(a)(zM'o^^o 




7?=y.:%^-\»5;757«^A"Cfl!*^ Uct^ 



*j-i +T i; 



280 DBF MOVE ( I ) =SPR I TE (11, D, - 

H, !$»(7)Mp.128 (fi) ^<z:~i<^~^i\o 

540bi;630l3(Z)^?^^M^Scli, / \S/n^ffi^^[^'O^^SIZ 

540 DEF MOVE (7) =SPR I TE (0. V, 1 - 
630 Tf K<4 then DEF MOVE (7) = 
SPRITE (0, V, 4-K. tuM 

c^^55(Z)f%0©^U7^c«oTl\^^^^ ;&ch^(d:~5 40l3(S4 
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(Z, 6 30l3(S13i::, tUoc^^lz^^^^o 

111 
'nV, 

1 40 T = 800:W=0: NN=l: X = 116 lutbis 

zcD ^1 J ^, \^ty(Dmmz^ni^c^i\o)v^o i^i^u ::©§# 

(SZ:5?-5'^'225«6Dr, 1 40It6DWI*,. 2d^'0 1 S^^X^i^ 
IZ;S:-DTl/\SO^r^o 4E5 (i#(S3) ffiz^^t, ^UtT^" 




»i^ie30l, u>Disiii5lt«-3)ru^^tf, ^ffli.S 
isi^s^cb^*r^^^o;&ch^«;S^^iii00ijz^stsi3:, 

4 20 Tf ASC (s"cR$ (XL, YL-1))=Z 
THEN LOCATE XL, YL-1 : PR I NT " 
":Z = Z + 1 :W=W + 30: i^:^™ 



©30^1 00CS^T<e~^Uo 
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3. V3fflC^-^7n^^^ 

880 LOCATE XB, YL-1 : PR I NT " " 
:R = R+1 :W=W+1^ ^^^^^ 

1 5^50cfe"c<;e~^Uo i#^:u>^~6DM^©Sit^^ 32 
7 6 y^te^ti^-iz^^'o^^o 

140 T=800:W=0: NN=1 : X=X16 : Y=l 
£2- POS I T I ON liifi 

VIS, ffliD(D±;9^S©l2M^ 

^toru^^ ([iii0)o r^ 




<^S<±, ^c^iOilzmSc); ^ [2110 

1 6-1 6 8<e)U(ZUT35^^L.d;^o BGC7^^^^v9rg^ 
©l]S^i'P^;^A(S, -^CDSSIZ^^t^T, ^UTT^dii^iJpiT^^ 
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800t^^^^^^^;^§^^:Cd^-^'CM<U;S^O^<L;e^Ot>-C 
1 40 T=800:W=0:- 



•iUTIlt& 



L-il n U ^f^ X t *«:i T 



till r>f Ti «>*' t m 

^o^^o 4i0l3r, 

410 Yf SCR$ (XL, YL-1) =K$ then 
G=zX5:GbT0 7 70 

zom^^- 20\zkx^^, u<vvyyn^^z)\zu^^-^o 

;&;e^U BGC/^:7-<^v9©i'P'075IZci;-:?T, fe6D^r<a<fFt/u 
Uc^^lZL^Ld^^o 5>»^L;&c^^C, P-^::SF17^^57OT 
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3. V3ffl-7-/^7a^^Aj 



■10C^S 




T7^IZU^UcJ:Oo G=-3CU 

Ms. G=0izLTRUNUT^T<;e~^Uo 5>»:rs^'i 
^o;&^i:lz^^c±, ^;^^u<3e^~^^o ^c±u^(ZL;stS(i, 

ail /}• 

71x5^ > ^# U T o ^ < 5^ i7 >7°^§ c!i, 
V^^^^, Si^Scb, fc^1^« 

7 70 F=1 : SPRITE S, X, Y : ERA 7: : 
SPR I TE 3 : POS I T I ON 7, X, Y : S2 = S 
: K = K* ( (S = 2) lufi 
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K= (K-1) * 
K= (K-3) * 

K= (K + 2) * 
CDc^olZ^Sci:, -"^-"^(DMUMLtf, 5>lMiZ/S:'0^^o 

K= (K+10) * 

K= (K-20) * 

iz^Sc^, ^ij^isi^izffe/uru^u^^o 
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I 



3. V3CD'7"-^7DC'^^ 



760 G = -9 : X = X + ' 



•1UTB& 






1-T 



6D r-9j tU^i^^^.^-l 5 J ^ ^-20j (Z)d;o«, ^^ 



1025 Tf Y<16 then Y=16:YL=2: 
RESUME 

tzil' fzil' 

ud5, vvyym>m^iD'm< 

tz*' nil' 

^^vyy^^m^^m<u^^^^, i^<^xu ^-2 5j ^ ^- 
70 




I 



< 



isa -r^ t; *t «>*■ tts z 

30J tl^^:^^«^#c^§c!l, s/*i7>7u^^, m^m'omu 



z, 



m-5Z[^^z>z^:^^K)^^o z^ty^, Sfe r-20j < 



e^i\^v{zuT^[.\izjjtf^iw\^<^z)o 





2)vyy(Dm^^^xic.t.=< 



\t-'j—j—i\' 



IS,¥mii®c^^C, BGTOOL 



«SEecfcee 



^e^*^ 




rrr 


E^eg 


^ 



i?~rf^ 



^pcppeEeeEEEEeEEKeEee 



¥mi 



(2) •7U^(DS^I&«)«Ttt^<L^U«J:'5 

- t»CT A* * 



^utt^^Si: 



6 30 7f K<4 then DEF MOVE (7) = 
SPR I TE (0, V, 4HK. 2 5 5) : i^utb^ 

tt-p *s iJi; 

71 



3. V3ffl0"-^7n^5^ 



n 



■7U7^zj-)\j[^ync^^ixU7.^ 



le CGSET 1,9 
29 ON ERROR GOTO 919 
39 U=F=K=T=R=Z=NI=NN=XE=YE=X 
N=YN=XB=XL=YL=S2=S1=S=G=V=X= 
Y=I=D!H=9:S$=G$ 
49 PALETB 3, 13,48,54,22sSPRI 
TE ON 

59 K*=CHR*(24):R*=CHR*(25):H 
*=CHR*( 26 ) S U$=CHR*< 27 ) 
69 DEF SPRITE 9,(9,1,9,1,9)= 
R$+K*+U$+H* 

79 K$=CHR*(12):R*=CHR$(13):H 
*=CHR$( 14 ) : U$=CHR*( 15 ) 
89 DEF SPRITE 1,(9,1,9,1,9)= 
R$+K$+H*+U* 

99 DEF SPRITE 2,(9,1,9,9,9)= 
K$+R$+H$+U$ 

199 K$=CHR*(29):R$=CHR$(21): 
H$=CHR$ ( 22 ) : U*=CHR$ ( 23 ) 
119 DEF SPRITE 3,(9,1,9,9,9) 
=K*+R*+H*+U* 

129 K$=CHR*(227):R*=CHR$(215 
) : H$=CHR$( 219 ) : U$=CHR$( 192 ) : 
DIM Q(3),D(3) 
139 'S-at fe'af-r 
149 T=809:U=9 
27:P0SITI0N 7 
V/=9:G0T0 549 
159 '■y-l'A S h<77> J iVyf'C 
169 T=T-1:IF T MOD 19=8 
LOCATE 14,2l:PRINT T;' 
F T=9 THEN 669 

179 IF Z=58 THEN IF R>15 THE 
N GOSUB 899 

180 ';5'I5' J 7'D7'7A 
199 I=-(I+1)»(I<>NN) 

299 XN=XPOS(I):YN=YPOS(I) 
219 IF XN<12 OR XN>222 OR YN 
>188 THEN XN=RND(27)»8+12:YN 
=7:P0SITI0N I ,XN, YN:D=9 :Q( I ) 
=5: GOTO 289 

229 XE=(XN-8)/8:YE=(YN-2)/8 
239 G$=SCR$(XE,YE) 



:NN=1:X=116:Y=1 
,X,Y: GOSUB 890: 



THEN 
■:I 



*mm 



I v-t" >yLTi^-5 i: #(75 



-7>) -^cn/x-^- 



■^'Jkubi, 



•mm 
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249 D=Q(I) 

259 IF G$<>U* THEN IF YLOYE 
OR G$<>H* THEN D=5:Q(I)=3-4 
*(X<XN):60T0 279 
269 IF D(I)=D THEN 399 

279 XN=XE*8+12:YN=YE»8+7:P0S 
ITION I.XN.YN 

280 DEF M0VE(I)=SPRITE(11,D, 
2,255+251*(D=5)):M0VE I:D(I) 
=D 

290 '?"*;» 'J J /Of-r 

390 NI=CRASH(7):IF NI>-1 THE 

N IF ABS(YP0S(NI)-YP0S(7))<1 

4 AND ABS(XP0S(NI)-XP0S(7))< 

14 THEN 660 

310 IF F=l THEN 789 

S1=S:S=STICK(9):IF S>2 T 

S=3-(S>7) 

X=XP0S(7):Y=YP0S(7) 

XL=X/8-l:YL=(Y-2)/8 

ON S GOTO 559,559,489,51 



320 

330 

HEN 

340 

350 

369 

9 

379 ' 

389 V=0:K=9:CUT 7 

390 IF SCR*(XL,YL)=" ' THEN 
IF SCR$(XL,YL-1)<>H* THEN GO 
SUB 870: GOTO 759 

499 XB=XL+(S1=1)-(S1=2):IF S 
CR*(XB,YL-1)=R* THEN GOSUB 8 
89 

419 IF SCR$(XL,YL-1)=K$ THEN 
G=-15:G0T0 779 

429 IF ASC(SCR*(XL,YL-1))=Z 
THEN LOCATE XL, YL-1 :PRINT " 
■:Z=Z+l:U=U+39: LOCATE 14,23: 
PRINT U; 

430 IF STRIG(0)<>8 THEN 470 

449 IF SCR$(XL-1,YL)=U* THEN 
769 

450 IF SCR*(XL,YL)=U* THEN 7 
69 

469 IF SCR*(XL+1,YL)=U$ THEN 
769 

470 GOTO 160 

480 V=5:G*=SCR$(XL,YL) 
490 IF G$<>H$ THEN IF G*<>U« 
THEN 8=0 :V=0: GOTO 759 



t-^-if fy<w <} ;*• i^ii^.^fr(t ?> 



HA. tv 






>i![?:?ry^o/;'b30*. 



• ViJ^(;5>E7C(7)J*(7)flJS 
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509 GOTO 529 

510 V=1:G*=SCR*(XL,YL-1) 
520 IF G*<>H$ THEN S=0:GOTO 
389 

539 IF S1=0 OR K>0 THEN GOSU 
B 879:K=0 

549 DEF M0VE(7)=SPRITE(9,V,1 
,4):M0VE 7:SPRITE S2:PAUSE 5 
:G0T0 160 

550 V=4»S-1:K=1-(K+(K>3))*(S 
=S1) 

560 G$=SCR$(XL+1+2«(S=2),YL) 

:S$=SCR*(XL,YL) 

570 XB=XL+1+2*(S=1):IF K>2 T 

HEN IF SCR*(XB,YL-1)=R* THEN 

60SUB 880 
580 IF SCR$(XL,YL-1)=R$ THEN 

XB=XL:GOSUB 889 
590 IF G$<>U$ AND 6$<>H* THE 
N X=X+6*(S$<>" ")»(<S=1)-(S= 
2)):G0T0 750 
600 IF S*=' ■ THEN S=S1:GGT0 

750 
610 IF STRIG(0)=8 THEN IF G$ 
=U* OR S*=U* OR SCR$(XB,YL)= 
U* THEN 760 

629 NI=CRASH<7):IF NI>-1 THE 
N IF ABS(XP0S(NI)-XP0S(7))<1 
4 THEN 660 

630 IF K<4 THEN DEF M0VE<7)= 
SPRITE<0,V,4-K,255):MOVE 7:S 
PRITE S2 

640 GOTO 160 

650 't9'; J I'ViO'^'ik 

669 SPRITE StSPRITE SltSPRIT 

E S2:ERA 7 

679 FOR 1=9 TO NN:ERA I:POSI 
TION I,9,0:D<I)=0!NEXT 

680 LOCATE 8, 9: PRINT ■»**«»»« 

690 LOCATE 8,10:PRINT"* GAME 

OVER *• 
700 LOCATE 8,11:PRINT"**»K«» 

710 IF U>H THEN H=U:LOCATE 1 
4, 22: PRINT H; 

720 IF STRIG<9)=1 THEN 140 
730 GOTO 720 



3. \j?>(b'j-Lsyno^L^ 



•vu^^vNvzi-^guK'j-r?. 



Aft' IJA-Cv 






I 



740 'S."*^?'' J 7'U9"^L 

750 G=2:Y=Y+3:G0T0 770 

760 G=-9:X=X+(2*K+6)«((S=2)- 

(S=1)):Y=Y-12 

770 F=l:SPRITE S,X,Y:ERA 7:: 

SPRITE 3:P0SITI0N 7,X,Y:S2=S 

:K=K»((S=2)-(S=1)):G0T0 160 

780 NI=CRASH(7):IF NI>-1 THE 

N IF ABS(YP0S(NI)-Y<12 THEN 

660 

790 G=G+3+3«(G>6):X=X+K:Y=Y+ 

G:SPRITE S.X, Y:POSITION 7,X, 

Y 

800 XL=X/8-l:YL=(Y-2)/8:G$=S 

CR* ( XL , YD : S*=SCR$ ( XL , YL-1 ) 

819 IF G*=U$ THEN GOSUB 860: 
K=1:G0T0 549 

820 IF S$=H* THEN GOSUB 860: 
SPRITE 3,X,Y:SPRITE S2:S2=3: 
GOTO 160 

830 IF G$=H$ THEN GOSUB 860: 

V=0:GOTO 540 

840 GOTO 789 

859 'SUB J 7°D^"7A 

869 GOSUB 879 :F=9:K=0: SPRITE 
S.X.Y: RETURN 

870 CUT 7:X=XL*8+12:Y=YL*8+7 
:POSITION 7,X,Y:RETURN 

880 LOCATE XB, YL-1:PRINT * ' 

:R=R+1:U=U+15: LOCATE 14,23:P 

RINT U;:RETURN 

899 VIEU:I=9:F=0:K=0:C=0:R=0 

:Z=48:L0CATE 10,21 :PRINT"TIM 

E";T:LOCATE 6,22:PRINT"HI-SC 

ORE";H:LOCATE 9,23:PRINT"SCG 

RE';U; 

999 RETURN 

919 '17- z>3'J J 7'a9*7L 

929 IF ERL=569 THEN XL=-27*( 

XL<1):G0SUB 870: MOVE 7:RESUM 

E 639 

939 IF ERL=399 THEN XL=-27»( 
XL<9):G0SUB 879 :S=S1 : RESUME 
550 

940 IF YL>23 THEN RESUME 660 

950 IF XL>27 THEN XL=0: GOSUB 
879: RESUME 



*i>-\'>y'<ny'ay^A 



• v,^ -5 1 ^ -^ 4' t*- 7 >u— ?• > 
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3. V3a)'7-^7n^5^ 



M 



^ 



968 IF XL<e THEN XL=27:G0SUB 




870: RESUME 


■c 


979 IF XB>27 THEN XB=8:M0VE7 


• X V— ^^Hj 


: RESUME 




980 IF XB<0 THEN XB=27:M0VE7 




: RESUME 




990 IF XL+1>27 THEN XL=0:GOS 




UB 870: RESUME 




1000 IF XL-K0 THEN XL=27:G0 




SUB 870: RESUME 




1010 IF X<12 THEN X=228:RESU 




ME 




1020 IF X>228 THEN X=12:RESU 




ME 




1030 END J 





^U7r'3'-;uK^^u^K 



X.Y 


^U7rcD^7^YKii' 


R 


u>ii=£i-3si 


XY.YL 


^UyrfflEJtfflBGsS 


Z 


>i^ci-5S¥ffl=l-K 


XN.YN 


~5'^s'a):x77YsiS 


K$ 


S^»7fe}CDBG^i75^5' 


XE.YE 


^S'ZS'fflETcOBGii' 


R$H 


U>=IC)BG^-P^75^ 


NN 


-Sl-sl(rM.-^ 
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N 1 
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D( ) 


-Si~<)nmi\ti75\^\ 
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^U7rfflSlqi^ 7.y=z>-<h-ss 


Q( ) 


~si-'9n''ik\zm<n^ 


V 


VU^fl'K<sS 
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ZS'ZS'fflMOVEii 
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T 
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OSHB f3l l RETURN I 







1 Ar5S/3\t$IS, ^-7K-K(Z)H:^-^ffU 2Ar^/3\c±^(S, 



oi I) ** 



*V' -C i t,»iltA 



H^-^ffUT<;e^$Uo 1 Ar3g/3\(^Sa, +g#(Z)?ffil8^^> 



ut n a xt: n ii 



1 Affi^-^;0'^2A^^-^^'^^^toSt, ^-^^J^^iQ^^o 
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3. V3ffl0'-^7n^:7iij 




i: j^A o f^")! -itA 



1 756D¥ffillB^^®<«^;&t$CI3:, =fco1 7D(Z)?ffllB^^^<^^ 



TU^-5^r. D>eii-5^^"^#^u^^o 
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i'.'li t 



7 '.»i«^ *'1* A> 






«.»i-ltA i}'-r 



imm^, '7~iAtfm^z)i^^^\z\^4m^-Dv^o :io)m^m. 



T <,»^^t^ «-f 



40 L=9 :MA=2 : N=3 : V=7 :C=7 : S (0) 
=,liS (1) =4_ 



@ tiiT:<Sfl8(7«:0««IE;^r*^U<i:-5 



40 L=9 :MA=2 : N=3 
40lT©MA = 2r, Bfc2i^r 

m±©Sc^Stl37-(Z®'0, ^;S, 
0izurt) nlisfet±iSc5;3)lz;s;^ 



8o 



•1UTB& 




3. V3(Z)^-^3^n^^z:j 



T* t> C-i /;v> 






40 L=9 :MA=2 : N=3 : V=7 



•1.UTB& 



§aN = 3IZ/^^^TU^^o dffli^^ 1lS(i:(Z)ii^fcfeT 



JiU i'1" 



I> ;t f;i> *>'.() *t tt 






•5 "i^i-ltA. *• 

e-Klzfec5;o(ZU 
t:-KIZU;&UtSIZ, 



^UT5^T<;e~^iv 




'S'^^ 



40 L=9 :MA=2 : N=3 : V=2 •C=7- 



•JUTB& 



^©V = 7®f(#^3lZ^^t, B7lt57>^'l]D:^7K57>IZ^;D'0^ 






ittYJUc^iuiz^-^Tu^u^^o fni^^i; 



tt-YJU^^fesi:, 



;^'rju^^z.Tff^AuT:-i\sd^o(z«io, 



8i 






T 



3. V3fflO'-^7n<75^ 



LA Ct liT ;t 



^(Z)7nc/^^S. RUN 
UN ^Sc^^^C^-^^^'S 







^ivi Lrt L>-) 



:nKA#ifr^^*, 



Sji tit «A j; It 



OBOBmB QJQ 



HI RETURNI 



jQ0 GOSUB_1070 
\90 If_STR1GJ0)^^^=0^^ 
::oLT35<ch, RUNU;^i, m^yhO-=y(DA, B, START, 

82 



I 



SELECTCDt'CDTK 

&an^nm-i-^<\z 




Sv Z. 



titzi ng rjn -5V. «. rj-i t>t 1 J:^ 






HaS) 8 5 M=1 



(2AS) 8 5 M^ 



:©^?^1 (ZUT33I:MS; 1 AffilZ^KiO^^c 



r><. HZ t>t KS i>«> j; -^S 

^^"1 00l3^ScDd;^ra;^^^o 

100 V I EW^^£oRP^£rTg200J^:;^^ 
1 00 V I EW ^assuruso 

101 FOR P=0 TO 100 

102 X = RND (28) :Y = RND(23) : IF 
SCR$ (X, Y) <> l^" THEN 102 

1 03 LOCATE X, Y : PR I NT CHR$ (2 

05) ; 

104 NEXT:P=0 
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iSmOODBlTDM] 



LV LA 

¥^13 



<;e^$i\o znv, ¥Mi3©cJ;-5 
tBEryRNjJp-^3Wu;&t^ffi^3j 

JU-JU^6D2r^o 

::©2^©Jb-Ju^g=n(S', mm:L(D^z{zd3<m^mmv^o 
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3. V3ffl-7-^7a<75Zj 



•5^(b^'r^^i^Auo ^^<xtfv>^scb, ^-z^/ftrfeat, 







ju-jL^6D2(s, ^Ly-v-1 tiyvy-v-2(Dmmmi^t.\ 






yvy-v-2(Dmm- 



iiv.Li<if/i. ri -3< 



S Ili'Lj; If A. 'n t ht- 

85 



a<.'Lt<iiA. r-9 * % if< 11-3 

lii' Li; lf^ n » t, If < ij-3 



^l\o 



iv--()[y(Dim^^{-^^Lmm^zr)nT\^^i\m^o Mti 



< * 



t,CD<^^ffi^^^t^T35l:MS', $&(Z^U$*'Ia;^"'0^^o 



:^57-:ir^-^^u:^h 
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T 


STR 1 G ( ) ffli" 


V 


B7r\5^>^»Lv;EtSfflMi 


S 


s't 1 CK ( ) ffll' 


X0,Y0 


7L/-^P-1 C07n-/^7KS;^3> 


U 


m^^^n'Cl■\i>mli$•cDU. 


X1,Y1 


71/-^^- 2 ffl7n-Aj7t\;>>- 3 > 


N 


v-z>^»i,^mimL 


DC ) 


¥ffii«fK<!5S 


C 


mmcDj^-^^v^o'pm^ 


V( ) 


#'§lafflaB 


MA 




F(0) 
~FC7) 


fi tif a'/SO^ -3>;e tf (2)75 7 


L 


:3yi^ iL-^omti 


F(8) 


77'-r'7-75-r©tH^73^7 


M 


1 A-7-Zj»2A-7-^S- 


SC( ) 


^=17^ 


P 


:[I|D>Ka-^ 

1 :l]=)>hn-3i 





MiL.;sM6vEiiaf 


D 


iisnEMOVEsSsi: 



:^^-=<r^- 



3. V3®'7-i^7a75^ 






10 ' "AREA 88 V7.3" 

20 T=0=U=C=H=D=I=K=L=M=N=P=S 

=V=X=Y=MA--X0=X1=Y0 = Y1=PP=Q 

30 DIM OCl) ,V(1) .F(8),SC(1). 

S(l ) 

40 L=9:riA=2:N=3:V=7:C=7:S(0) 

=4:S(1)=4 

50 X0=70:Y0=80:X1=110:Y1=60 

60 D(0)=3:V(0)=2:D(1)=7:V(1) 

= 2:F(, 0)=3:F(1)=3: MA=MA+ 1 : U=N 

:M=1 

70 SPRITE ON:CGSET 1,1: PLAY" 

TlY2MlV903Rr :PALETS 1,13,48 

,38,18 

80 FOR 1=15 TO 18:A$=A$+SCR$ 

( 1,22):NEXT:H=VAL(A$) 

90 GOSUB 1070 

100 VIEU:FORP=0TO200:LOCATER 

ND( 27 ) , RND( 23 ) : PR I NTCHR$ ( 205 

); :NEXT:P=0 

110 ' 

120 I=P+6:IF F(P) THEN ON F( 

P) GOSUB 670, 700, 680 -.GOTO 15 



130 IF M=P THEN GOSUB 390: GO 

TO 150 

140 GOSUB 210 

150 IF MOVE(I)=0 THEN ERA I 

160 GOSUB 530 

170 GOSUB 800 

180 ON F(8)+l GOSUB 940,1048 

190 P=1-P:G0T0 120 

200 ' 

210 S=STICK(P):T=STRIG(P) 

220 IF T04 THEN F(I ) = 1 

230 IF S+T=0 THEN RETURN 

240 IFS=0THEN350 

250 S=-1*(S=8)-3*(S=1)-5*(S= 

4)-7*(S=2)-2*(S=9)-4*(S=5)-6 

»(S=6)-8*(S=10) 

260 Q=D(P) 

270 IF S=Q THEN 350 

280 IF Q>4 THEN 310 






• BG ^4cK!±iLT'M$-i< 



•y -r >)u—^> 



lCt±iT< 43C^ 
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290 IF (S>Q AND S<=Q+4) THEN 




320 




300 GOTO 330 




310 IF (S>=Q-4 AND S<Q)THEN 
330 


• ^^^V'f'h 


320 Q=Q+1:G0T0 340 
330 Q=Q-1 


ii liAtw 


340 PP=-1*(Q>8)-8*(Q<1):Q=-Q 




*(PP=Q)+PP5D(P)=Q 





350 IF T AND4 THEN IF F< I) T 

HEN V(P)=V-V(P):F(I)=0 

360 DEF MOVE(P)=SPRITE (P+8, 

D(P).V(P),255,1):MGVE P 

370 IF T>7 THEN DEF MOVE(I)= 

SPR I TE ( 12 , D ( P ) , 1 . 80 , , P ) : POS 

ITION I,(XP0S(P)+4)M0D256,(Y 

P0S(P)+4)M0D256:M0VE I 

380 RETURN 

390 

400 K=K-1:IF K>0 THEN RETURN 



0:D=0:X=(XPGS(1-P)-XPO 
13:Y=(YPGS(1-P)-YPGS(P 

X>0 THEN D=3 

X<0 THEN D=7 

Y>0 THEN D=D+5 

Y<0 THEN D=D+1:IF X<0 
D=16 

X AND Y THEN D=D/2 
2:G=D-D(P):IF(0<G AND 

G<-3 THEN S=l 

G=0 THEN S=0 

V(1-P)<>V(P) THEN T=4 

MO^;E(I)=0 OR RND(10) = 

T=T+8 

X*X+Y*Y>200 THEN RETU 

RND(L):G0T0 220 

CRASH(0):IF D>0 AND D< 

G=0:GGSUB 590 
CRASH(1):IF D>1 AND D< 

G=1:GGSUB 590 
CRASH(6):IF D>0 AND D< 

G=6:GGSUB 610 
CRASH(7):IF D=0 OR (D> 



410 


T= 


S(P))/ 


))/13 


420 


IF 


430 


IF 


440 


IF 


450 


IF 


THEN 


460 


IF 


470 


S= 


0<5)0R 


480 


IF 


490 


IF 


500 


IF 


THEN 


510 


IF 


RN 




520 


K= 


540 


D= 


6 THEN 


550 


D= 


6 THEN 


560 


D= 


6 THEN 


570 


D= 
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3. \J 3(Df-/^ya'7=yl^ 



1 AND D<6)THEN G=7:G0SUB 610 

580 RETURN 

590 X=ABS(XPOS(G)-XPOS(D)):Y 
=ABS(YPOS(0)-YPOS(D)):IF X<1 
AND Y<10 THEN IF MGVE(G) A 
ND MGVE(D) AND F(D)=0 AND F( 
G)=0 THEN F(G)=l:F(D)=l:IF D 
>1 THEN 650 
600 RETURN 

610 X=ABS(XPGS(G)-XPGS(D)-4) 

:Y=ABS(YP0S(G)-YP0S(D)-4):IF 

X<8 AND Y<8 THEN IF MGVE(O) 

AND MOVE(D) AND F(D)=0 THEN 

ERA 0:F(D)=1:GGTG 630 

620 RETURN 

630 IF D<2 THEN £C(0-6)=SC(0 
-6)+10:RETURN 
640 SC(0-6)=SC(G-6)+l+F(8)*4 

650 DEF MOVE(D)=SPRITE(10,RN 

D(9),RND(3)+4,10):MGVE D:PLA 

Y"04C' : RETURN 

660 

670 F(P)=2:DEF MGVE(P)=SPRIT 

E(10,D(P),V<P),70/V(P),0):MO 

VE P:PLAY"G"+HEX$(P+3)+"GG" : 

S(P)=S(P)-1:RETURN 

680 IF P=M OR STRIG(P)+STICK 

(P) THEN F(P)=0:POSITION P,X 

0fP«Xl,Y0+P*Yl 

690 RETURN 

700 IF MOVE(P) THEN RETURN 

710 F(P)=3:ERA P 

720 IF SC(0)>H AND MO0 THEN 

H=SC(0) 
730 IF SC(1)>H AND MOl THEN 

H=SC(1) 
740 IF L<1 THEN L=5 
750 LOCATE ,20 : PR I NT "SCORE 
■,SC(0),SC(1)," LEVEL" : PRINT" 
SHIPS" ,S(0),S(1),L; " ":PRINT 
"HI-SCORE" ,H. 

760 IF S(P)>0 THEN RETURN 
770 IF M=P THEN L=L-1:S(P)=4 
:GOTG 740 

780 IF M=-l THEN M=P:PRINT P 
;" COM" : PLAY" EE" : RETURN 



• ircor-> + -v7^:5!lRl^-*^'i^ 



1-% 



! HA. i:>.' 



•^■sm^m^$-^i 









89 



i 



799 LOCATE 19, 10: PR I NT "GAME 
OVER' :PLAY'01C5CDED6C4C5" :P 
AUSE 299: RUN 
890 ' 

819 X=XP0S(P)/8-l:Y=YP0S(P)/ 
8-2 

829 IF X<0 OR X>27 OR Y<9 OR 
Y>23 THEN 880 

830 IF SCR$(X,Y)<>"»"THEN 88 


840 S=ASC(SCR*(X,Y,1)) 

859 IF S=P+1 THEN 889 

860 IF F(P)=9 THEN F(P)=1 
879 ' 

889 IF M0VE(I)=9 THEN RETURN 

899 X=(XP0S(I)-12)/8:Y=(YP0S 

(I)-29)/8 

999 IF X<0 OR X>27 OR Y<0 OR 

Y>23 THEN RETURN 
919 IF SCR$(X.Y)<>"»" THEN R 
ETURN 

929 S=ASC(SCR$(X,Y,1)):IF S= 
P+1 THEN RETURN 

939 ERA I:LOCATE X,Y:PRINT " 
" ; : RETURN 

940 ' 

959 FOR 1=2 TO MA: IF MOVE(I) 
OR F(I)=2 THEN 989 
969 IF F<I)=1 THEN GOSUB 990 
:GOTO 980 

979 DEF MOVE(I)=SPRITE (CRN 
D(9),RND(3)+C/2.89,0):MOyE I 

980 NEXT: RETURN 
990 ' 

1009 F(I)=9:ERA I:POSITION I 
,129,129:IF U<MA THEN F(I)=2 

1010 U=U-1:IF U=0 THEN F(2)= 
0:F(8)=1:RETURN 

1020 IF U<0 THEN U=N:F(2)=9: 
F(3)=9:F(4)=9:F(5)=9:F(8)=9: 
C=C-2:L=L-1:IF C<2 THEN C=7: 
IF M>-1 THEN S(1-M)=S(1-M)+1 

1930 RETURN 

1040 IF F(2) THEN I=2:G0T099 



i-u-i*/. TS 






-V-'-t' 



h HA t'.- 

mtz^tzm'^ 



4A'j.-t'c 



• :^^'i--fi:t:^iiiLXWiti^t 



• :^ t> - 4- i:' ?r ^ + ? * /: 

At L J f 



• 



90 



9 

1050 IF M0VE(2)=9 THEN DEF M 

0VE(2)=SPRITE(2,RND(8)+1,RND 

(3)+l,10.0):MOVE 2 

1060 RETURN 

1079 ' 

1080 VIEU:REST0RE 1979 

1990 FORP=0TO200:LOCATERND(2 

7),RND(23):PRINTCHR$(205):NE 

XT 

1100 LOCATES, 3:PRINT"STAR KI 

LLER" 

1119 FOR P=0 TO 1:L0CATE 19, 
10+P*8:DEF MOVE(P)=SPRITE(P+ 
8,D(P).2,30):POSITION P.X0+P 
»X1,Y9+P*Y1:M0VE P 

1120 IF MOVE(P) THEN 1120 
1130 READ A*:FOR 1=1 TO LEN( 
A$):PRINT MID$(A$,I,1); :PLAY 
■C":NEXT:NEXT 

1140 FOR P=2 TO 3:L0CATE 19, 
17+P:READ A$:FOR 1=1 TO LEN( 
A$):PRINT MID*(A$.I .1);:PLAY 
"C" : NEXT: NEXT: LOCATE 1.22: PR I 
NT" 7-99 7" 7Vt:"77»(Y/N)" ; :M=- 
1 

1159 A$=INKEY$(9):IFA$="N"TH 
ENM=1 

1160 PAUSE89: RETURN 

1170 DATA "PLAYER 1", "PLAYER 
2"," OR" , "COMPUTER" 



3. \j3(D0'-i^yao^iA 



• yT'<^-y=7^^^Lx 



mt^r 



» I Affl 2 Affl^3M.i- 




9« 



DEF MOVEtDEF SPRITE 

tfV^m^o fe-51 "DISDEF SPR I TEm^^i^^TD^T, 



zmm^cD^v^o'^i 



?^^i^§^<^^"r^^^o 




^^^^M^Sch. DE> M 
OVEc^DEF SPRITE® 

1.DEF MOVE (U7>h2) 

:/n^^~^Z^^RUN^t^S^:,^>/K>^*mTST^^t±JL^^o 

110I3® 

110 AC = 4 : AS=0 -JUT^ 

92 



3. V3C0'7-^7a^5^ 



18 'LIST 2 

108 CLEAR : CLS : SPRITE ON 

: CGSET 1,1 

lie AC=4 : AS=8 : D=5 : X=ll 

6 : Y=116 

128 POSITION 8,X,Y 

288 '========== 

218 S=STICK<8) : IF S=8 GOTO 

368 
228 IF S=8 THEN D=l 
238 IF S=9 THEN 0=2 
248 IF S=l THEN 0=3 
258 IF S=5 THEN 0=4 
268 IF S=4 THEN 0=5 
278 IF S=6 THEN 0=6 
288 IF S=2 THEN 0=7 
298 IF S=18THEN 0=8 
388 IF AS=0 GOTO 368 
318 AS=D 

328 X=XPOS(0) : Y=YP0S(8) 
338 0EFM0VE(8)=SPRITE(AC,0,1 
,255,8,8) 

348 POSITION 0,X,Y 
358 MOVE 
360 '========== 

378 IF M0VE(8)<>e GOTO 418 

388 0EFM0VE(8)=SPRITE(AC,D,1 

,255,8,8) 

390 POSITION 8,X,Y 

488 MOVE 8 

418 GOTO 280 



ij:^ h 2 



v9.V3^ 



2. DEF SPRITE (UXh3) 

1 20f36Di^^i^ 

93 




I 



1 20 


P = 96 


: p 1 =p : P2 = 


1j0^0 




t 




t 







VIJ^ 


8 




28 


Ut-'< 


36 




56 


77"r5'-75-f 


60 




64 


7 + u;^ 


68 




88 


-5'-5' 


92 




112 


7r'r7'-.i^-;L. 


116 




144 


^f:»— 


148 




184 


:^>^^ 


188 




192 


:'3-^^ 


196 




2)00 


h u^^ 


204 



10 'LIST 3 

10G CLEAR : CLS : C6SET 1,1 

: SPRITE ON 

110 X=116 : Y=116 : F=l 

120 P=96 : P1=P : P2=100 

200 '========== 

210 K=STICK(0) : IF K=0 GOTO 

380 
220 AX=0 : AY=0 
230 IF K=l OR K=9 OR K=5 TH 
EN AX=4 : F=l 

240 IF K=2 OR K=6 OR K=10 T 
HEN AX=-4 : F=-l 
250 IF K=4 OR K=5 OR K=6 T 
HEN AY=4 

260 IF K=8 OR K=9 OR K=ie T 
HEN AY=-4 

270 IF F=l THEN DEF SPRITE 
,(0,1,0,1,0) =CHR* ( P+1 ) +CHR*( 
P)+CHR$(P+3)+CHR$(P+2) 
280 IF F=-l THEN DEF SPRITE 
0,(0,1,0,0,0)=CHR$(P)+CHR$(P 
+l)+CHR*(P+2)+CHR$(P+3) 
290 X=X+AX 



300 
310 
320 
330 
340 



IF X>240 THEN X=0 
IF X<0 THEN X=240 
Y=Y+AY 
IF Y>240 THEN Y=0 
IF Y<0 THEN Y=240 



350 SPRITE 0,X,Y 

360 P=P+4 : IF P>P2 THEN P=P 

1 

370 PAUSE 3 

380 ' 

390 GOTO 200 




D 



E4MILY BASICW© OD 



'JX h 3 



to L\ ni\ IS "^j 



m^mt>1S^ D 
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a A. &L 






ins. ^^5u-/x-5/^v^ V 3 ri^scfijD^ns basic 



«-i'1tTj;A J; *>?; 









fUTo^TTn 






j^i.>4ii> :;■ fjALr»; 



#iigfl5J DP^ii=&felius=fc®r^c 



r- (/ W:7»j, r=(YZ]-JU)j;S:i:6DiBiB. SI 



^tto ^vr\ jrtun^' 'M- A'/i f^rtT V. rA 



<i> -tt-^i^Vi 



mJ m^o:)m\yj'py^m^Miztfmi^<mm\^z^'o^^c 



ifi\'tl^' "ii}' i\^^ti\^ L:i Z,T !+-> rt- Lift 



n'Cl^^^c 



•m^i6Dii^#iiu;&(t^. ifiSciz^vh 
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I 



4. V3cod&^^«;trio 



AUTO 



1 i:iti')j< fji IfA ;t u fT 



fi5emi:M:<n^^o 



i^ifej A. 

'^ 11 AUTO [m], [n] 






m---5^toCDl3S^ (0-65534) 

fjT ifA r-1 *'T *■ 

U<^ (0-65534) 
T^'T^Tl-JlyHi m=10 n=10 

Stiiikin ': t,t:i~ L TV. 10 REM «AUTO 

'nm^^iti-y^o^ty, ^6DM^jg^^ 20 x=25 

O'o r rC 1 IN I A 

AUTO 100 
OK 

100 REM »AUTO 

tT T* fillip r-i ..a ¥-->=, 

l)fi^C::5U;&^3S^©^t6D7D^' 120 prInt x 
^L.m^MWZUK)^^o MlAU °^,,o 100.30 

L -cu *•--. *. jv. OS l.ui/iin -> 160 PRINT X 

V11 j^ AUTO , 50 

5nS7J\^n'Cl'\$^'5"o 190 REM »AUTO 

L -V. u...; iJ*v. 2d0 X=25 

If *v *i 



^o u^po^'^r, A:a^S6D(s, 



:t;j h 77"*-«-J)-r 
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[RETURN] ^-^JfUr^O^T^fR 



ur;t?5 1 RETURN! ^-^n^^, 

-&(Z)f3SiTUL^P^§6Dfe©tAni 



BACKUP 



Sj yn^^^^BGS^/^v^P^vT" 



^^t^lZjgL\^^o 



#l§J^j BA 



\X k] BACKUP 



XA IfA t7 



linyil 



jU $i$®S3i^ off curt>, zl- 
tf-RAM iifflF^S^~i^ru^ 

7n<7'^^cii-M(ZBGS1 ^/\^v 
^^^v7°U;5UiMB. BG GET 

RAM liSciiuT33<i\i;^^^ 
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4. V36Dro=p^iD;tf'Ci 



^^^;g^3 K/ WhJ^T"C;S;<r(S 



BGGET 



ts 



BGS1 ^IV)jOJ^^)jyn^1^l^(D 






, #il§JBj BGG. 
CS: /^J BGGET 



V RAM C^S BG ® 1 ®x-5? 
^~, IL-tf- RAM cii^n^^o 
T^ni^, ZL-tf- RAM (Z>ct I J®i 

U^^(^tU§iB4 K/ \VK)o 



BGPUT 



l@ ^ J BG GET CcJ^^O/ \"^vC?7^^v^^n;& 
BG®^,V RAM^IcS^S^^ 
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4. VSfflon'&^^D/tr'O 



^MMJ bgp 



fe .% J BG PUT 



M_JU BGGETIZc^'OZL-tf-RAMC 
ii^nST'-57^, V RAM CIc 

^^, HOT START (D«^B, i 

ijKic^ss^n. BG PUT m^r^ 



a-^-^y-ib 



BGTOOL 






i^_MJ BGTOOL 



(l_j|J BGSir^Mii^JS<;S5Di::. 

BASIC t-K^6BG^^^^^v 



BASIC t-KCMSC(S, ESC] 






CAN 



i iH Sj DBF MOVE ■CK)$^^«U;e7^ 



i X y^J CAN n0, n1.n2. n7 



n0~n7-7,7°^YK 






JU DBF MOVEiZc^^r^ttu;^:^ 

C^SCB. ERA ^^t POSIT 
ION §^^ffl20/fi^M'CU;&o V3 
riS, CCD CAN ^fe'l:M!, ^n 



^ -^ ^ -y 

CLICK 



^ ^-?<ym io^>jo%~) (DON/ 

OFF ^gf^^U^^o 



%mwA CLI.O./CLI.OF. 



\ X ^J 



I ON 

CLICK \ ^7 \ \siik 



ii^ iJ-i -tti' 



CLS 



- rtA. ffjT U 



^ BGSCD^zjx^^UPU^^c 



mmwA CL 



\X m CLSCBG^D 

0-BGS0®C7iJP 

7>¥®BG®/9^^UP6nSo 



JU BGSIZIS, £rt1(Z)2S79^^'0^ 



4. V3ffli$i^^r)«''0 



CRASH 



$ DBF MOVE CcJ^S^^-^^-l^^ 



^57 [q1 j£CDM>S: iQ ^¥y^ L ^ ^c 



#lllgJB CR 



^3 CRASH (n) 



S/i 



IIA -CI' 

siS, CRASH(n)B.i;Q: 



DELETE 



1 »>7°A 7°D<?~?i 

5 ' SPRITE 

10 VIEU 

20 SPRITE ON 

30 C6SET 1,0 

40 0=3 

50 FOR N=0 TO 7 :DEF MOVE<N) 

=SPRITE(N,D,N+1,255,0):NEXT 

60 MOVE 8,1,2,3,4,5,6,7 

70 LOCATE 0,3 :PRINT"VCT(0 ) ' 

;VCT(0) 

80 LOCATE 0,5 :PRINT"XPOS(0) 

,YPOS(0)* J XPOS<0) i ■," ;Y 

POS<0) ! ■ 

90 LOCATE 0,7 : PR I NT " CRASH ( 

0) :" ;CRASH(0) 

100 LOCATE 0,1 : PR I NT "MOVEC 

0) :" ;MOVE(0) 

110 IF MOVE(0)=-1 THEN 70 

120 D=RND<8)+1 :PLAY"T104B1A 

G2FE" 

130 GOTO 50 
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4. V3CDiJD^Jp«»'0 






i#ife j DEL 

T-U- h 



,1 



S^J DELETE Cm) O CnD 

t It lie rji liA. n 

t 1+ ii Sxi IfA -T 



((i))o n®i=&«iiL;5ife, m 

*tl' Sv r fin t It 

DELETE m-n •■■® 

DELETE m •••© 

DELETE - n -(e) 

DELETE m- ■■■@ 



-i-J'-IOXIb 

ERL 



Ij-iiti. jfjTliAr-i tt 



»» DELETE »» 
LIST 

10 REM »DELETE 
20 INPUT "A.B.X" JA.B.X 
30 INPUT "A.B.X" ;A,B,X 
40 Y=AKX+B 
50 Y=A»X+B 
60 Y=A»X+B 
70 PRINT "A«X+B= 
A»X+B= 



80 PRINT 

90 PRINT ■A»X+B= 

100 END 

OK 

DELETE 30,50 

OK 

LIST 

10 REM *DELETE 

20 INPUT "A.B.X" 

60 Y=A«X+B 

70 PRINT •A«X+B=" 

80 PRINT ■A«X+B=' 

90 PRINT ■A«X+B=' 

100 END 

OK 

DELETE 80, 

OK 

LIST 

10 REM »DELETE 

20 INPUT •A.B,X" 

60 Y=A»X+B 

70 PRINT •A«X+B=" 

OK 



JY 
:Y 
;Y 



;a,b,x 

iY 

;Y 

!Y 



iA,B,X 

;Y 



BLM T^-^*^^ Lists. aCD'nV^ 

I^-^'ii^St.ON ERROR 
GOTO Scd;^TX^-MijU- 

^^xzi^o/ERL'^ci^-oiss 



ERR 




ej X^-/tf^^LS(^S, ^0X^- 

/^J ERR 

X^-^M^Sct, ON ERROR 
GOTO SCc^oTX^-MsJU- 

^'xzi'o, ^ffl$rx^-6DMi 
e'rrs, x^-®F^Sc%iiL;s 



^^o 



x^-zi-K^'^ffiMt^a^O. x^ 



cf;^9, MiF^S=&)^i^ 
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^6n error goto (DmcDtyyyiiyn 



ERROR 



S <i5©X^-^^tt^t^^^o 



mmh ] ERR 



S 1] ERROR I^-=)-K 

'i ail ^na, x^-mwi-^ytfiEu 

lit-. «■< i;a 



FIND 
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4. V3CDiti^?iDfl''0 



g fTnd'x 



m m 






:0op 



"p 



u;si^m^ (^^^U 









«« FIND »x 

LIST 

18 REM xSEARCH 

20 INPUT A.B.X 

3B Y=A»X+B 

40 PRINT A;B!XiY 

50 END 

OK 

FIND "A" 

10 REM »SEARCH 

20 INPUT A.B.X 

30 Y=A«X+B 

40 PRINT A;B;X;Y 

OK 

FIND ■ A" 

20 INPUT A.B.X 

40 PRINT A;B;X;Y 

OK 



Fl LTER 



b'-v-s^/.. tf^«^^.f;Ll: z-^ z- 



^ SGm(D±mm^iin\-i-&n^'4.. 






S ij FILTER X?^- 



fT 


1 


? 


3 


4 


5 


6 


7 


S 


m 




s 


S 


m 


S 


^ 


^ 


m 


u 


n 


S 


'Q 


^ 


a 


e 










1z 

> 
57 


fe 





5'U, x^^JUHi(Sj0 



m ^ 
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vi-^ L T>.» lf^ zT-i yjT 



GAME 



$J ROM IZf^)l^n■C^/^^^-^;tf! 



g~g)GAME P C.Sw) 



P-^-^t 



0-3 



Sw-Siifflii=&f3^^^ : 1 



^3IU;S:u : 0^1zm 






^5t ^vT^ 
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4. Vafflro^^^D/JiO 



^a, GAME ^olaaB^t. ^oM 



INSTR 






#ii§JB 



t u ti'j t i; *i'' 



^^ 






INS. 

INSTR (c P. :i±-^m 1 , ^?^u 2 ) 

10 



p-■k^m^ ^mi^phi^^m 






5 REM » INSTR 

18 A*="NINTENDO HUBASIC" 

20 PRINT INSTR(A*,"TEN") 

RUN 

4 
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LOADS 



'^^ rtV^ 



X k ] LOADS ":7^YJUS" 

§ yD<7^Z^^n-K^S^^ (LO 

AD) ^, A$icKSL;r^o 

yn<7^^^i.^^H'U( SKIP <^ 



4. V3®iiDTS^r>ZJ'0 



ejod:?^ YJL/sn i return i 

D-KcpB, iaSC: LOADING ^ 



=r->:^- 



ON ERROR GOTO 



S x^-;tf^^L;&t^, ^iK^Sf3 



=&J§^U^^c 




13:^ ^ ON ERROR GOTO ItS^ 
RESUME ^;&K END ^^ C 



1 

5 

6 

18 

20 

3e 

48 
58 
68 
70 



'»0N ERROR GOTO/RESUME/ 

ERR/ERL 
REM «0N ERROR SAMPLE 
ON ERROR GOTO 180 
INPUT ■A=" iA 
INPUT ■B=' ;B 
C=A/B 

PRINT ■A/B=' ;C 
GOTO 30 



100 PRINT 'k-irit-y 
110 PRINT ■ERR=' jERR 
120 PRINT ■ERL=" iERL 
130 RESUME 30 



Ura^^^oRESUME 



1 10 



III 






ON ERROR 
GOTO 









i^-^4 






(:»«) 



X 



1 






( resume) (end) 






^ L.., 



7 



RENUM 



r J -i If /i ; T T 



[1 ^] ya7^i^(Dhm^^m-:rmx^ 



op 



"P 



r^c 



^llgJB REN. 



I 



I X i j RENUM CU.CmXCnD 

*,/>, *H. L *ti ij/l ;t 



[12 



4. V3ffl*=P^«7?'0 



*-3 «V> 



T'^TtJUHi L, m.nl±C10 

rji li/l in -tt" ") wi'iH" 

Sii \lk in «!' 1 

<, GOTO, GOSUB ^^i:©:^ 



s ?s rji if/i . 



1 H:^ SiMiA in fi^'Hn 



uriiit 






(lili;^ in -^A in 



»» RENUM »» 

5 REM wRENUM 

28 FOR 1=0 TO 19 

21 PRINT'BASIC V3" 

55 NEXT 

RENUM 

OK 

LIST 

10 REM *RENUM 

20 FOR 1=0 TO 10 

30 PRINT"BASIC V3* 

40 NEXT 

OK 

RENUM 100 

OK 

LIST 

100 REM xRENUM 

110 FOR 1=0 TO 10 

120 PRINT"BASIC V3" 

130 NEXT 

OK 

RENUM 20 , , 20 

OK 

LIST 

20 REM »RENUM 

40 FOR 1=0 TO le 

60 PRINT'BASIC V3" 

NEXT 

OK 



RESUME 



^ ji^-^m.ji-'^yty^^-cyiiy- 



^^xzH^^^r^o 



tj-i ')'[.< l+v.^ 



mm ] REsu. 



RESUME 



rSX ifn 



SiTtlA in , . 

NEXT 



RESUME ©a^ -X^-^^It 



fiilf/t i 



IJ3 



NEXT 



[i i) ON ERROR GOTO^Cc^oT 
^ ON ERROR GOTO ®i®-^t>7J^y 



SAVES 






11' 



-t-r • j^x 



eg /^J SAVES "^^YiUS" 



t i; I. 'ii. 



SUV. ill. t- 



ift m] yni'^/^^iz-y^^w^ ( sa 
VE) <tL&mz\mcv^o 
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4. VaCDd&^P^DZJiO 



s)[A)(Y)Bnyn<7^^sa[D(s)[a 
aBin^^YJusn ireturni 

tz-7'^IS, isc WRITING 37^ 



xou-y 



SCREEN 



uj-i t; tnA. 



BGm(D\.\-^nu^m^'kx^nc 



mms>] so 



'Jii L' iftA 



l3^ /^J SOREEN^/T^SC^^T^-ry®) 



^^^^^--^^ 


ft 7K ffi 


T-^-r-f 7"® 


SCREEN 
0, 








SCREEN 
0, 1 





1 


SCREEN 
1 , 


1 





SCREEN 
1 , 1 


1 


1 


ICTRI + O 









l0i9=ISBGS0t1^l 



:L>Tl\^^o 



IIS 









Qi— (Z)^^ 



SCREEN 0,0^ SCREEN 



su-X7r:7 



TRON/TROFF 



U^Z-i Ah.uJ: 



^ hU-^t-h^^H^j-^^U^^o 



_L^ TRCN-hLz-^HlTt-K 

TROFF-y-^JLt-Kcfe 









4. V3ffloD^^;tO»iO 

TRON t®if4a5r-r'U^Kt- '3-;*„-?--,,,,, 

M^-X^v hL'-:^^> «*)U 30 NEXT 

^o TROFFC^^c^.TRON DP **Vie%VB*lR=8"*"'^'^** 
^B3^TL, Tuffit-h^CMiO^^o »ie #20 Ir=2 



#38 #28 TR=9 
#38 



VCT 



5 DEF MOVE Cci;^;^->(>:^i7^ 






vc. 



X /^J VCT(n) 



I 



li/,. in 

VCT (n) oi 0~8 



[16 



8 1 2 


\ 1 / 


7-^f^-3 


^ 1 \ 


6 5 ^4 
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VCT( n )©!«, DEF SPRITE 
^ CRASH ©i6Dt^>yjU7"n<7^^ipi 



l=>iMliY BASld^S 



Z^ 





ii8 



BG TOOL-COD^-ODill^ 



(^ y Jfei G 



ft. 



O "m 



Sfa 

-0 

10^ 



I AJ 
Vr 1o> 



P 






< 



S > UJ < ,cr 

_j Q_ >,LiJ,LiJ'i< 
tLiJlO^O(l_lcJJ;I 



I20 



AJ 
Li 

g 

t< 
|m 

s^ 

ly 

.a 



s 







E 







a 



m 



m 







s 







s 



E 



E 











m 











M 

P 






K5 -ViiS '^ 
V A J) 



y 

I -x 

^ I 

I HJ 

t^ » 



1a- 

+ 
(- 

LL 



V 
LI 



G 


tQ 




ty 




mII^ 


cr 




^^ 


+y 


R 


;4P 


4J 


5^K 


w 


V 


-^ 


-e 


m 


m 


p 


p 


n 


-i 


< 


A 


L_ 


i_ 


• 


• 



K3 
JS Id- 

4^ 



P 



/3\-5< 



7.5?— h(«i^6N^'6)©#)ii 



>:$;5tR14~16 ^<z:~K<HSUo 



•CA If A * > 



::iF-7tN- K*'3gi^^nru^^^^ 





i 






) 



/\%y977^v77Y^v^^0FFCao'Cl\^^*^? 




i 




OFF z iyTOsr^-< 



I 







BASIC t-K 



BASIC t-K 






RESET ^-S)f ^ts 



fflffiii (HOT START) ^ 



f*myD<73L^(Dmi^^i^ 



i®-(B(Dmmzz)l\T[iP.m^^:m<1^^(.\o 



BASIC t-h^ 



^myocT^L^vmu^^^^9 





® 



1./\ - h-fFTi.ggBGAMEO [ RETURN I 
2A>^>i]BEli'*EI3GAME1 [ RETURN | 



3. VUyf9"JLK[Fg, SEI3 GAME 2.1 1 RETURN 
4.;i.5'-^^-E3.SEI3GAME3 | RETURN 



$$ R25~94 



IL-V- 



't$R23~24 



J'i 



|gTCD#)li^ 



t-iiT <,»i/ii 



lETOP I ^-^l¥UT7n9~~^Z^©llf3^cpi^L.^^ 



^D^'^^^^MU^^*^ 








RETURN 






(5\a< 



BG^^7-<^v9®^l 



^n^^^u^h®ii 



t' - •:;■ - ■■/ - 'V 



fBl[GimfOl[OlfLl [ RETURN' 



ft' «A ft' 






BGt-Kr 



52, ai: 



'vSx-T'CBG® 
FILE^icfdl^ 



mwmm/mm 



M I ESC IfSTOPl ^if- 















■t--/ XT. 



SAVES " 77^YiUS " rPETURN 




ISl^ 



SAVE "yj^-fllS " IRETURN 



[Rl [01 [Nl ["RETURN I vyo^y^Ls^mhi^^^ 
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• 7>'>^2/3>:^-"cog5atli^;Si---p.i 7 

•=l^>H:^Ai)DUT:#at±ig"Bi P.17 

• ^>/K>l^CDBG^i P.44 

•^Uyr^-JUKCDBOii P.62 

•7.5'-:^^-(Z)BGii P.84 

^BGt-K"C. ^1^^^5'^M/3\Bii::'3)l^r(d:, ^j^5U-^-5/^v9lX 
'iiiicD ""BG GRAPHICj(P.40~43) (Z)ii>&ip|U"C<;g'Sl\o ^ 
^, BGtbOL OB^COU-Cia, $/\>H:7'>v^(Z)P.100^§PMb'C<;S~$ 

•/\-S P.31 

'^y^ymm p.45 

•^UtT^-JL/H: P.63 

•7,^-^=y- P.80 

@ Z3t':/h5^-7^^(D7DC^^^fflSAVE(«S)/L6AD (iaiiiU)©Ba 

ss7:pSU-^-2y>v9iiiBjiffl '"T'D^'^^fflSAVEcM), LOAD 
(DiLFtljL)j (P.45 -48) fflii=&iiUT<S-Sl\o 
© ;^t^Vh5^-7A,®BG'7537-f->vC'CD SAVES («^)/L6ADS(l#t/tii 
U)®Bi 

• SAVES/LOADS §%IZc^5Bi P.23 

^ BGt-KOFILECcJ^sBiC'IJl^rB, :7>^5U-^-i/>V^Mii 
i© '"^D^^^CDSAVECM). LOADCDfa'illDj CP.45~48)CDi 
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/3\5< 



Ss§T(ii3M6FF)CD#)li 



BASIC t-K 



R19~22^<z:~i<e~^0\o 



^D^^^^/ Vy9P^v^U^^*' 





tr-->-- «' «A 



BG mm^i Vjoi^^vy^nnn 





: 



i;_i;-y.y h 



([1[G]!G)(1[T] I RETURN I ) 



it-I-U 1-5- 



?0M ERROR ttiJ^^^^ 








,, ([KgOEPBl RETURN I) 









■-^^ff® 
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:f^=^^J^^jV 



ivsty^cD^mf^.} 









aH6000 

SH6FFF 


a-^- (RAM) 




SH7000 
aH7FFF 






aH8000 
SHCFFF 


BASIC -<>^ • yu5> 




aHD000 
8HD3FF 


BGS® (VUTr^-JLKi) 




aHD400 
SHDBFD 


GAME 




aHDBFE 
aHE681 


GAME 1 




SHE682 
aHF307 


GAME 2 




aHF308 
SHFFF9 


GAME 3 




SHFEFA 
SHFFFF 


5^:^xzMi 





x^-;>c^:/t~y 






15- 




I:?— y-^vtz— S' 


m m 









NF 


NEXT Without FOR 


FORtf^dl WCNEXJtfm^o 


1 


SN 


> > 9 ■■> y X X -7 - 

Syntax error 


^^tj'^^tf-DZ[.\^. 


2 


RG 


RETURN without GOSUB 


G6h\jBtfr6.imzRE.j[jHms^o 


3 


OD 


Out of DATA 


READriidJ^ST-'-S'/JDAT 
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/3n5< 



4 


IL 


Illegal function call 




5 


OV 


Overflow 


mm^^tfm§mm^mx.tzo 


6 


OM 


Out of memory 


^tu^sra^So 


7 


UL 


Undeffned line Number 


GOTO, GOSUB.JFSc^Tjk 


8 


SO 


Subscript out of range 


mmm(DM'^tiMm9i-T:s^o 


9 


DD 


Duplicate Definition 


iB5y/?2fc^A*nT:i^So 


10 


DZ 


Division by zero 


0{z<^^mm^i^tio 


11 


TM 


Type mismatch 


mi(Dmtf-^L'U[,\ 


12 


ST 


String too long 


i^^*3l'i#^®^Tl\So 


13 


FT 


Formula Too complex 




14 


CC 


Can't contlhue 




15 


UF 


Undefind function 


^m^(Dm§.^Mfvtz 


16 


MO 


Missing operand 


1 \=y:^-yo:>Uwrm^\zkmti 


17 


TP 


ta^pe read ERROR 




18 


NR 


No RESUME 


ON ERROR GOfor^i^c 
CRESUMES[/D'a;i^o 


19 


RE 


RESUME witiiout error 


RESUMEtffiSSily-5'>'\ 
ON ERROR G0t0lS(5^«-5 


20 


NB 


No BG"data 


BGx-S'/D'RAMfifc/EClV 


21 


UP 


Unprintable error 


D-KNO.0~NO.203;rizS 



ssD-i^NO.i 5. 1 8-21 isv3m/2i::Effl^n^t.(Z)rg'o 
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^^y^-f ]^(Dmmm<tij^-^^^7'^^^o:>vm(D^m 





'P-:>^^V^C^5>(DtKm 


m m 




mmm 




i it 


MOVECn) 








-1 





CRASH(n) 


-2 


1>^!S0 


-1>t(a0~7 


-lIlS0~7 


VCT(n) 





0-8 


0-8 


0-8 


XPOS(n) 
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(x,y) 


(x,y) 


YPOS(n) 
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Rii3.iiifi33c^a:^^P^c?5'^^v7^z'i<e$Uo 



.0 : V i; :t 


6 :$ 


12 : u-+f- 


1 : Ux-r 


7 : ;^ t:!-- 


13 : •>i;u:? ij-y<- {t)^ $A,) 


2 : 7r-r $'-77'r 


8 : 7.9-^^- 


14 : -y-'T K;^7"-y/\"- (:ft -^^) 


3 : T^^UT, 


9 : X :? - •> •> y 


15 : - -y h t'-y*- ( h U^^) 


4 : ^>^> 


\o:m^ 




5 : ^^-f T-.i^-ju 


II : - $» - :? 
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DEF MOVE^<ii DBF SPRITE ?^a)m=^>t?ri^^ 



rv3 


z^ 
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/3>5< 



:>tT laoB^ 



BG=i\P^^i:75?^U^KIZ<S-5^^ 



^t^H r/\-hj CGAME0)©300l3®i¥(Z^§, 
PRINT"*" 

IZU"C<;gcSU^o 

t'— •>'— 'J A- 

ei:^K/\5?©BG^l7^^5^^i^-3£ 
250 PRINT "p" 

rj-i ill.- fjT ifA r^ o 

oimom OBoiamsiE jreturni 



TBI; 



(200 oememn 

250 PRINT" 

®piz<5^r[DEb^-^flUT<^$Uo 

PRINT CHR$(199) 
ffl199^184~255®i^-U5U5ix^t, ^S^^fflBG^l'^^S^ 
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